*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
************************ DRÄGER AND NGHIEM (2025) ***********************
*INFLATION LITERACY, INFLAION EXPECTATIONS, AND TRUST IN THE CENTRAL BANK: 
*                           A SURVEY EXPERIMENT 
****************** THE REVIEW OF ECONOMICS AND STATISTICS ***************
*********************** (REPLICATION FILES) *****************************
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

***********************   JANUARY 2025  *******************************


***** Note: Read "README.txt for details about the code and data ********

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
*** Set STATA
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

*** Clear all ***
clear all
version 18

******************

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
*** Generate tables and figures in the Online Appendix

*A.1 Summary statistics
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

	use "Inflation_literacy_Jan2025_final.dta" , clear

*A.1 Summary statistics

*Table A1: Distribution of Respondents across Treatments

	tab basic_treatment further_treatment if wave == 1

	tab basic_treatment further_treatment if wave == 2

*Table A2: Demographic Characteristics: Wave 1 vs. Wave 2

	iebaltab  age college male inc_cont inc_dontknow full_time part_time retired renter hhsize_group East_Germany news_inf_att2 news_ECB_att3, group(wave) stats(desc(sd) pair(p)) ///
	savetex("TableA2.tex")  replace
	
*Table A3: Demographic Characteristics: Control vs. Literacy Treatment (Wave 1 - Step 1)

	iebaltab  age college male inc_cont inc_dontknow full_time part_time retired renter hhsize_group East_Germany news_inf_att2 news_ECB_att3 if wave == 1, group(basic_treatment) control(0) stats(desc(sd) pair(p)) ///
	savetex("TableA3.tex")  replace
	

*Table A4: Demographic Characteristics: Control vs. Literacy Treatment (Wave 2 - Step 1)

	iebaltab  age college male inc_cont inc_dontknow full_time part_time retired renter hhsize_group East_Germany news_inf_att2 news_ECB_att3 if wave == 2, group(basic_treatment) control(0) stats(desc(sd) pair(p)) ///
	savetex("TableA4.tex")  replace
	
*Table A5 + A6: Demographic Characteristics: Control vs. Further Treatments (Wave 1 - Step 2)

	iebaltab  age college male inc_cont inc_dontknow full_time part_time retired renter hhsize_group East_Germany news_inf_att2 news_ECB_att3 if wave == 1, group(further_treatment) control(0) stats(desc(sd) pair(p)) ///
	savetex("TableA5A6.tex")  replace
	
*Table A7 + A8: Demographic Characteristics: Control vs. Further Treatments (Wave 2 - Step 2)

	iebaltab  age college male inc_cont inc_dontknow full_time part_time retired renter hhsize_group East_Germany news_inf_att2 news_ECB_att3 if wave == 2, group(further_treatment) control(0) stats(desc(sd) pair(p)) ///
	savetex("TableA7A8.tex")  replace
	
*Table A9: Summary Statistics of the Main Variables: Control Group

	*Panel A: Control 1

	*Summary statistics on inflation inflation literacy 
	
	tabstat literacy_grade_inf literacy1_true literacy7_true literacy2_true literacy3_true literacy4_true if wave == 1 & basic_treatment ==0, stat(mean median sd min max N) col(stat)

	*Summary statistics on financial literacy
	tabstat literacy_fin2 literacy5_true literacy8_true if wave == 1 & basic_treatment ==0, stat(mean median sd min max N) col(stat)
	
	*The share providing predictions
	
	tabstat inf_perc_point_ans inf_exp1y_point_ans inf_exp3y_point_ans ECB_target_ans if wave == 1 & 		 basic_treatment ==0, stat(mean median sd min max N) col(stat)

	*Summary statistics on inflation predictions (prior point estimates)

	tabstat inf_perc_point inf_exp1y_point inf_exp3y_point ECB_target  if wave == 1 & basic_treatment ==0 & sample_robust_w1_298 == 1 , stat(mean median sd min max N) col(stat)

	*Panel B: Control 1 & 2:

	tabstat trust_ecb trust_bundesbank if basic_treatment ==0 & further_treatment ==0 & wave == 1, stat(mean median sd min max N) col(stat)

*Table A10: Pairwise Correlations: Control Group 1 & 2

	asdoc pwcorr literacy_grade_inf literacy_fin2 ECB_target_dummy inf_perc_point_298 inf_exp1y_point_298 inf_exp3y_point_298 trust_ecb trust_bundesbank if  basic_treatment == 0 & further_treatment == 0 & wave == 1, dig(2) sig star(.05)
	
*Figure A1: Distribution of the Main Variables – Wave 1: Control group

	hist literacy_grade_inf if wave == 1 & basic_treatment == 0	
	graph export "inflation_literacy_dis.pdf", as(pdf) replace
	
	hist literacy_fin2 if wave == 1 & basic_treatment == 0
	graph export "financial_literacy_dis.pdf", as(pdf) replace
	
	hist inf_perc_point if basic_treatment == 0 &  sample_robust_w1_298 == 1  & wave == 1
	graph export "perceived_inf_dis.pdf", as(pdf) replace
	
	hist inf_exp1y_point if basic_treatment == 0 &  sample_robust_w1_298 == 1  & wave == 1
	graph export "expected_inf_1y_dis.pdf", as(pdf) replace
	
	hist inf_exp3y_point if basic_treatment == 0 &  sample_robust_w1_298 == 1  & wave == 1
	graph export "expected_inf_3y_dis.pdf", as(pdf) replace
	
	hist ECB_target if basic_treatment == 0 &  sample_robust_w1_298 == 1  & wave == 1
	graph export "ecb_target_inf_dis.pdf", as(pdf) replace
	
	hist trust_ecb if basic_treatment == 0 & further_treatment == 0 & wave == 1
	graph export "trust_ecb_dis.pdf", as(pdf) replace
	
	hist trust_bundesbank if basic_treatment == 0 & further_treatment == 0 & wave == 1
	graph export "trust_buba_dis.pdf", as(pdf) replace
	

*Table A11: Balance Tests: Control vs. Literacy Treatment (Wave 1 - Step 1), Respondents Who Provide Inflation Predictions

	iebaltab  age college male inc_cont inc_dontknow full_time part_time retired renter hhsize_group East_Germany news_inf_att2 news_ECB_att3 if wave == 1 & sample_robust_w1_298==1, group(basic_treatment) control(0) stats(desc(sd) pair(p)) ///
	savetex("TableA11.tex")  replace
	
*Table A12: Balance Tests: Control vs. Literacy treatment (Wave 1 - Step 1), Respondents Who Do Not Provide Inflation Predictions

	iebaltab  age college male inc_cont inc_dontknow full_time part_time retired renter hhsize_group East_Germany news_inf_att2 news_ECB_att3 if wave == 1 & sample_robust_w1_298!=1, group(basic_treatment) control(0) stats(desc(sd) pair(p)) ///
	savetex("TableA12.tex")  replace
	
********************************************************************************
********************************************************************************